home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Musica
/
ZMUD32.ZIP
/
ZMUD.EXE
/
0
/
RCDATA
/
TDEFINEVAR
/
TDEFINEVAR.txt
Wrap
Text File
|
1997-06-09
|
16KB
|
576 lines
object DefineVar: TDefineVar
Left = 249
Top = 149
BorderStyle = bsDialog
Caption = 'Variables'
ClientHeight = 353
ClientWidth = 564
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ShowHint = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object AliasText: TLabel
Left = 240
Top = 154
Width = 41
Height = 13
Alignment = taRightJustify
Caption = 'Variable:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComText: TLabel
Left = 251
Top = 178
Width = 30
Height = 13
Alignment = taRightJustify
Caption = 'Value:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 184
Top = 32
Width = 32
Height = 32
AutoSize = True
end
object Label3: TLabel
Left = 224
Top = 40
Width = 267
Height = 13
Caption = 'Variables allow you to assign a value to a short-cut name'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 240
Top = 56
Width = 238
Height = 13
Caption = 'Enter the name of the short-cut in the Variable field'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 240
Top = 70
Width = 223
Height = 13
Caption = 'Enter the value of the variable in the Value field'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel1: TBevel
Left = 168
Top = 32
Width = 9
Height = 259
Shape = bsLeftLine
end
object Label7: TLabel
Left = 8
Top = 32
Width = 98
Height = 13
Caption = 'Stored Variables:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 8
Top = 48
Width = 148
Height = 13
Caption = 'Click on an alias below to edit it'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 240
Top = 84
Width = 256
Height = 13
Caption = 'If the Default Value is set, the variable will be initialized'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 256
Top = 98
Width = 206
Height = 13
Caption = 'to that value when the settings file is loaded'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 244
Top = 202
Width = 37
Height = 13
Alignment = taRightJustify
Caption = 'Default:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Inh: TLabel
Left = 288
Top = 232
Width = 188
Height = 13
Caption = 'Inherited from parent settings file'
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object OKBtn: TBitBtn
Left = 320
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 402
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = CancelBtnClick
Kind = bkCancel
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 484
Top = 300
Width = 77
Height = 27
HelpContext = 170
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkHelp
Spacing = -1
IsControl = True
end
object VarName: TEdit
Left = 288
Top = 152
Width = 81
Height = 21
Hint = '|Name of the variable (A-Z 0-9 and _ characters only)'
AutoSize = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnChange = VarNameChange
end
object VarCom: TEdit
Left = 288
Top = 176
Width = 209
Height = 21
Hint = '|Current value of variable'
AutoSize = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnChange = VarComChange
end
object VarList: TListBox
Left = 8
Top = 66
Width = 154
Height = 225
ExtendedSelect = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 5
OnClick = VarListClick
OnMouseDown = VarListMouseDown
end
object NewBtn: TBitBtn
Left = 8
Top = 300
Width = 62
Height = 27
Hint = '|Create a new variable'
Caption = '&New'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = NewBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 564
Height = 22
Align = alTop
BevelOuter = bvLowered
Caption = 'Panel1'
TabOrder = 7
object Panel2: TPanel
Left = 1
Top = 1
Width = 42
Height = 20
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object TopBtn: TSpeedButton
Left = 0
Top = 0
Width = 20
Height = 20
Hint = 'Keep on top|Forces this dialog to display on top of others'
AllowAllUp = True
GroupIndex = 1
NumGlyphs = 2
OnClick = TopBtnClick
end
object LoadBtn: TSpeedButton
Left = 20
Top = 0
Width = 20
Height = 20
Hint =
'Update for active MUD|Loads variables for current character wind' +
'ow'
NumGlyphs = 2
OnClick = LoadBtnClick
end
end
object Panel3: TPanel
Left = 43
Top = 1
Width = 520
Height = 20
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object AliasBtn: TBtnPanel
Left = 0
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Aliases'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = AliasBtnClick
end
object VarBtn: TBtnPanel
Left = 64
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Variables'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = VarBtnClick
end
object MacroBtn: TBtnPanel
Left = 128
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Macros'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = MacroBtnClick
end
object ButBtn: TBtnPanel
Left = 192
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Buttons'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = ButBtnClick
end
object TrigBtn: TBtnPanel
Left = 256
Top = 0
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Triggers'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = TrigBtnClick
end
object WalkBtn: TBtnPanel
Left = 320
Top = 0
Width = 88
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Speedwalking'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = WalkBtnClick
end
end
end
object VarDef: TEdit
Left = 288
Top = 200
Width = 209
Height = 21
Hint = '|Default value of variable to load at startup'
AutoSize = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnChange = VarComChange
end
object CopyBtn: TBitBtn
Left = 72
Top = 300
Width = 62
Height = 27
Hint = '|Make a copy of the currently selected variable'
Caption = '&Copy'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = CopyBtnClick
Glyph.Data = {
56070000424D5607000000000000360400002800000028000000140000000100
0800000000002003000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
0303030303030303030000000000000000000003030303030303030303F8F8F8
F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
0303030300FF070707070707FF0003030303030303030303F8FF030303030303
03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303}
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DelBtn: TBitBtn
Left = 136
Top = 300
Width = 27
Height = 27
Hint = 'Delete variable'
TabOrder = 10
OnClick = DelBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object HelpPanel: TPanel
Left = 0
Top = 333
Width = 564
Height = 20
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object PopupMenu1: TPopupMenu
Left = 184
Top = 248
object New1: TMenuItem
Caption = 'New'
ShortCut = 0
OnClick = NewBtnClick
end
object Copy1: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = CopyBtnClick
end
object Delete1: TMenuItem
Caption = 'Delete'
ShortCut = 0
OnClick = DelBtnClick
end
end
end